home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23.lha / YAM2.3 / Rexx / Example3.yam < prev    next >
Text File  |  2000-04-19  |  776b  |  20 lines
  1. /* Example3.yam - YAM ARexx interface example #3                      */
  2. /* $VER: Example3.yam 1.0 (08.04.99) © 1999 by M.Beck <mbeck@yam.ch>  */
  3. /* Print information about attachments of active message              */
  4. /* Requires YAM 2.0p7 or later                                        */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. MailRead QUIET                        /* Decode message in background */
  10. ReadInfo STEM ri.                     /* Get information about message */
  11. ReadClose                             /* Finish reading */
  12. DO i = 0 TO ri.filename.count-1       /* Display read info */
  13.    SAY 'Information about part #'i+1
  14.    SAY '  File name: 'ri.filename.i
  15.    SAY '  File type: 'ri.filetype.i
  16.    SAY '  File size: 'ri.filesize.i
  17.    SAY '  Stored at: 'ri.tempfile.i
  18. END
  19.  
  20.